home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / asprog.EXE / WHOOPERS.ASM < prev    next >
Assembly Source File  |  1995-11-26  |  748b  |  35 lines
  1. seg_a        segment    byte public
  2.         assume    cs:seg_a, ds:seg_a
  3.         org    100h
  4.  
  5. whoopers    proc    far
  6.  
  7. start:          jmp    short real_start
  8.  
  9. real_start:     mov    bx,1388h
  10.         mov    al,0B6h
  11.         out    43h,al            ; port 43h, 8253 timer control
  12.  
  13. loc_1:          mov    ax,bx
  14.         out    42h,al            ; port 42h, 8253 timer 2 spkr
  15.         mov    al,ah
  16.         out    42h,al            ; port 42h, 8253 timer 2 spkr
  17.         in    al,61h            ; port 61h, 8255 port B, read
  18.         or    al,3
  19.         out    61h,al            ; port 61h, 8255 B - spkr, etc
  20.         mov    cx,32h
  21.  
  22. locloop_2:      loop    locloop_2        ; Loop if cx > 0
  23.  
  24.         dec    bx
  25.         jnz    loc_1            ; Jump if not zero
  26.         in    al,61h            ; port 61h, 8255 port B, read
  27.         and    al,0FCh
  28.         out    61h,al            ; port 61h, 8255 B - spkr, etc
  29.         mov    ax,4Ch
  30.         int    21h
  31.  
  32. whoopers    endp
  33.  
  34. seg_a        ends
  35.         end    start